|
|
 |
|
|
|
|
29: Public Function enforceCashDepositLimit(argDeposit As Deposit) As Boolean
30: If argDeposit.DepositType = eDepositType.Cash Then
31: If argDeposit. Amount > 10000 Then
32: 'Could raise event at this point
33: MsgBox Cash amount not allowed per federal law
34: Exit Function
35: End If
36: enforceCashDepositLimit = False
37: End If
38: End Function
39:
40: Public Property Get TransactionDate() As Date
41: 'used when retrieving value of a property, on the right side of an
assignment.
42: 'Syntax: Debug.Print X.TransactionDate
43: TransactionDate = mvarTransactionDate
44: End Property
45:
46: Public Property Let TransactionDate(ByVal vData As Date)
47: 'used when assigning a value to the property, on the left side of an
assignment.
48: 'Syntax: X.TransactionDate = 5
49: mvarTransactionDate = vData
50: End Property
51:
52: Public Property Let FundsAvailabilityDate(ByVal vData As Date)
53: 'used when assigning a value to the property, on the left side of an
assignment.
54: 'Syntax: X.FundsAvailabilityDate = 5
55: mvarFundsAvailabilityDate = vData
56: End Property
57:
58:
59: Public Property Get FundsAvailabilityDate() As Date
60: 'used when retrieving value of a property, on the right side of an
assignment.
61: 'Syntax: Debug.Print X.FundsAvailabilityDate
62: FundsAvailabilityDate = mvarFundsAvailabilityDate
63: End Property
64:
65: Public Property Let DepositType(ByVal vData As Byte)
66: 'used when assigning a value to the property, on the left side of an
assignment.
67: 'Syntax: X.DepositType = 5
68: mvarDepositType = vData
69: End Property
70:
71:
|
|
|
|
|
|